44444444444444444444444444444444444444444444444444444444J 


J 


j? 


■■J 

1 


J 

1 

~J 

1t 

1t 

Ir 

j? 

T? 

i? 

.tf 

9 

V 


jy 

5? 




n# 




s* 

i? 


.7 

1? 


4.1.5 Using the serial port: Example program TMTM.COM 

The following section contains the listing for an Interrupt driven terminal emuiation 
program. This program shows how the serial port can be used in an applications 
program. The serial port routines (TMIO.ASM) contain comments showing how the 
same thing could be performed on an IBM PC This will allow users familier with the 
IBM PC to see how to modify existing Software. 

The program consists of several files: 


TM.INC 

TMTM.ASM 

TMKY.ASM 

TMDP.ASM 

TMIO.ASM 


Equates 
Main routine 
Keyboard routines 
Display routines 
Serial port routines 


TMIO.ASM will be of most interest to those developing Software for the serial port 
The other fdes have been included for completeness. TMTM.ASM should be linked ir 
as the first module create TMTM.COM. 


The program will set the serial port to 1200 baud, 8 data bits, 1 stop bits and no parity 
The top data bit will be cleared, ALT Q can be used to exit from the program. 


0 




— 




■0 

tm 



0 

Include 

file for 

Demo 

:■& 

■ 

* - * ■' * * * 

•• \ 1 * - * 

0 




0 

; Definitions 

for accessinq 

0 

SER_BASE 

equ 

400h 

& 

; Offsets froir 

l base address 

0 

RBR 

equ 

Oh 

& 

THR 

equ 

Oh 

•& 

IER 

equ 

lh 


IIR 

equ 

2h 


LCR 

equ 

3h 


MCR 

equ 

4h 


LSR 

equ 

5h 


MSR 

equ 

6h 

■* 

; Interrupt Controller 


* 

INT„REC 

equ 

807fh 


INT„0N 

equ 

01h 


INT_0FF 

equ 

00 h 


INT„NUM 

equ 

Och 

-0 

; Cont rol byte 

s 



terminal emulator for 


82C50 on serial port 

; serial base address in ROM 
of 82C50 control regi sters 
receiver buffer register 
transmitter holding register 
Interrupt enable register 
Interrupt identification register 
1ine control register 
modern control register 
line Status register 
modern Status register 

address of serial vector reg (SIVR) 
enable interrupt on char in 
disable all serial Interrupts 
interrupt number for serial port 


0 


<0 


DTR 


equ 01h 


; bit in MCR for DTR 










RTS 

THREJVIASK 


equ 

equ 


02h 

20h 


Memory allocation blocks 


name 


BUF_LEN 

equ 

100h 


STK^LEN 

equ 

200h 

i 

1 

; Miscellaeous 

definitions 


CR 

equ 

Odh 


LF 

equ 

Oah 


P0RT_DEFAULT 

equ 

83h 

ii ■ 

STRP_T0P 

equ 

7fh 

* 

f 

tmtm 

* ft ft * * ft ft ft ft ft ft ft * ft ft 

ft ft * ft ft ft * 

* * ft * * * * 

ft ft ft ft 

tmtm_main 

Terminal emulator for 

Pocket 

PC 

This terminal 

emulato 

r is fully 

driven and shows how 

seri al 

port 


bit in MCR for RTS 

bit in LSR for transmitter ready 


length of serial input buffer 
length of program stack 


carriage return character 
line feed character 
serial port defaults 
clear top bit 


t * ft ft ;V ft * * ;V ft * ft ft * ft * ft 


This module should 
linked objects 
tmtm_main is the entry point 


interrupt 


appear at the Start of 


ft * * ft * A ft * 


* ft * ft * ft ft ft * ft 


* * ** i 

extrn 

tmio_inon 

near 

extrn 

tmio_init 

near 

extrn 

tmky^gtky 

near 

extrn 

tmio_char: 

near 

extrn 

tmio_intc: 

near 

extrn 

tmio_offc: 

word 

extrn 

tmio_segc: 

word 


c ;s ft ft i f i ft ft i; ft * ft >7 ;7 * * ft i 


include tm.inc 

code segment byte public 

org 100h 

Code ends 

, pgroup allows the linking of several modules in such a way that the 
; total code size can be determined 

pgroup group code, endseg 

assume cs:pgroup, ds:pgroup 
code segment byte public 

tmtm_main proc near 

; Free unused memory to allow applications/hotkeys to work 

mov ab, 4ah ; modify memory allocation 

mov offset pgroup:1ast_byte + STK_LEN + Ofh 

mov cx, 4 





; terminal emulator 

endseg segment byte public 

last_byte: 

endseg ends 

end tmtm_mai n 


;end of the program 


; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * fc * * * * ... * ... ... ...... ... -v y. ... ... ...... ...... ,. _, t . 

; tmky 

; Terminal keyboard Händler 

; This module Controls the terminal keyboard 
; Will allow emulator to quit on ALT Q 

. * * * * * * * * * * s; i; * * ... y. y, * * * ■*; * * y. y. * .-. y, ... ... ... ... y t y, ... ,. ... ... ... ... ... ... ... Vt ... ... .... ... ^ ... ... 

public' tmky_gtky 

extrn tmdp_prbf: near 

extrn tmio„exit: near 

include tm.inc 

Code segment byte public 

assume cs:code, ds:code 

. iV i-t * * i; * i; * * * ;*; * * * * * * * it * * J. y. y : y, y. ... y. ... ... y_ ....... ... y.... ... ....... y ( ...... ... A ... ...... A ... ... 

tmky_gtky 

terminal keyboard Händler 

wait and process key from keyboard 
; returns valid ASCII character in AL 

I 

ALT wi11 cal1 command key 
ALT Q will leave program 

' 

; Parameters: 

, NONE 

Returns: 


Oestroys: 
NONE 


ASCII character code 


* i'f i'ü * £ t’t i'i * * ?r ;'r * * * * * Sr * * >V ; ; j. , 

T . " ' 

tmky^gtky proc near 
gtky_wtky: 

cal 1 tmdp_prb f 

mov ah, 1 

int 16h 

jz gtky_wtky 

mov ah, 0 

int 16h 

or al, al 

jz gtky„test 




check and display input buffer 
check key Status for key strokf 
ready 

wait for a key (no power down! 
key ready so get it 
from keyboard buffer 
extended code? 

use extended codes as special 








shr 

int 

jnc 

memory modification 
mov 
mov 
int 
mov 
i nt 

modification 


bxi cl I divide by 10h; bx has paraqraphs 

21h ; do it! 

tmtm„mmok ; jump if modified ok 
failed: print message and exit 
9h ; display message 

offset tmtm_fail ; failed on allocation 


; memory 
tmtm_mmok: 

; set up stack 


intialise 


ah, 
dx, 

21h 
ax, 

21h 

succeeded: 


4c00h 


; terminate program 
continue starting up 


in allocated space 


mov 

sp, 

offset 

pgroup:last„byte + STK^LEN 

Pocket 

PC LCD 

screen 

using DIP specific Services 

mov 

ax, 

OeOl h 

; set external screen mode 

mov 

dl , 

02 

; to 80-25 tracked 

int 

61h 



mov 

ax, 

1001 h 

; set screen Position 

mov 

dx, 

0 

; to top 1h corner of display 

int 

61h 



mov 

ah, 

9 

; display Start up message 

mov 

dx, 

offset 

tmtm__strt 

int 

21h 




grab interrupt Och (C0M1 


cl i 


push 

bx 

push 

es 

mov 

ax, 350ch 

int 

21h 

mov 

tmio_offc, 

mov 

tmio_segc, 

pop 

es 

pop 

bx 

mov 

dx, offset 

mov 

ax, 250ch 

int 

21h 

sti 


call 

tmio_ini t 

cal 1 

tmio_inon 


bx 

es 


disable interrupts 


get current int Och vector 

save offset 
save segment 


tmio_intc ; Set 
; routine as 


up our own 
tmio_intc 


Och service 


; initialise terminal emulator 
; enable serial interrupts 
program is via tmky^gtky 


ASCII key in al from keyboard 
send it to serial port 


; main emulator routine: exit from 
main_next: 

call tmky„gtky 

call tmio_char 

jmp main_next 

tmtm_mai n endp 
; Message table 

tmtm_fail db 'Failed To Allocate Memory', CR, LF, '$' 

tmtm_strt db 'DIP PPC Terminal Emulator Demo Program', CR, LF, '$' 

code ends 

; endseg is a dummy segment that will appear at the end of the 


Scheck for ALT codes 
gtky_test: 

cmp 

ine 

call 

int 

tmky_gtky endp 
code ends 

end 


ah, 10h 
gtky„wtky 
tmio_exit 
20h 


: check for ALT Q 
■ jump if not ALT Q 
. prepare to leave terminal emulator 
; leave it 


name tmdp 

. l't i.- * it * it it it * * * it it * it * it * iS * * * * * * i, JV * ... ... y. ...... 

; tmdp 

This module handles screen output 



public tmdp_prbf 

public tmdp_bptr 

include tm.inc 

Code segment byte public 

assume cs:code, ds:code 

tmdp_prbf 

Display serial input buffer contents 


* * V; 



The Interrupt can place additional characters 
in the buffer, except when the buffer is beino 
modified. 

Parameters: 

NONE 
Returns: 

NONE 
Destroys: 

NONE 


tmdp_prbf proc near 

push ax 

push dx 

push si 

prbf_next: 


; are we at the beginning of the serial input buffer? 
cmp tmdp_bptr, offset tmdp_cbuf 

J ne prbf_char ; if not then print contents 

pop si 

pop dx 

pop ax 

ret 





; at least one character needs to be printed 
prbf„char: 


shi ft 


mov 
mov 
mov 
i nt 

serial buffer 


in 

to 


di, offset tmdp_cbuf ; Start of buffer 
■ Cdi] ; move first character 

ah > 2 ■ ; irito AH 

21h ; display character 

- along 

! blffer d | s Sa be?ng"“S; S *° PreVSnt charcters bein B added while 
cl i 
cid 

mov cx, 

dec cx 

sub cx, 

mov si, 

; at this point, es:di points to the 
I ds:si points to one charartpr "in 

; character by the use o? movsE W1 ' 1 06 smtted down 

rÖP Hpr 5 ^ +- a ;[ds:si] *-> [es:di] CX times 

dec tmdp_bptr ;new end of buffer 

; buffer mayVeceive characters aga^" 0 ” lnter ™' )ts ^ 
tmdpjrbf endp P R^f.next ; loop for next character 

; Buffer storage 

tmdp„cbuf db BUF.LEN dup (00) ;serial input buffer 
tmdp_bptr dw offset tmdp_cbuf ; pointer to top i nput buffer 
code ends 

end 


;disable interrupts 
;direction up 

tmdp_bptr ;end of buffer+l 

;last character of buffer 
offset tmdp_cbuf :no. bytes to niove 
offset tmdp_cbuf+l ;start of string 
Start of the buffer and 
The buffer will be shifted 


CX 

move 

down 


name tmio 

. * * * ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft. ft ft ft ft ft ft ft ft ft ft ft i( ft ft 

, tmio 

This module interfaces with serial port 

The interrupt routine assumes that an Interrupt 
signifies the presence of a serial input 
; character 

i 

1 

No handshaking is performed by the emulator 
A baud rate of 1200 is assumed 
8 data bits/no parity is assumed 
Top data bit is stripped off 



public tmio_char 
public tmio„init 
public tmio_inon 
public tmio_inof 


€ 

<* 

<* 

e 

* 

6 


Ck (k (Y (k (k (i <Y . fk (Y (k fk fk (X fk rii et tv (X fk <k ik ^ m ^ *> 



public 

tmio_exit 


publ i c 

tmio„intc 


public 

tmio_offc 


publTC 

tmio_segc 


extrn 

tmdp^bptr: word 

include tm.inc 



code segment 

byte public 


assume 

cs:code, ds:code 

■ * ft it * * * ft ft ft ft * * * ft * * A 

i 

i: * * * i; * * * V; ;V * 

A ft ii A * ft ft A * * ii ft ft ft fc * ft it fc , 

tmio_char 


1 

Sends a character to the serial 

1 

port 

■ 

; Parameters: 



al : 

ASCII character 

to send 

; Returns: 



; NONE 


1 

; Destroys: 


■1 

; NONE 


■ 


* ft ft * ft * ft ft A * * ft ft * fz * * * 

« * * * * « ft ft ft ft ft ft ft * * A A * . 

tmio_char proc near 


■ 

push 

dx 


push 

di 


push 

ax 


mov 

di , tmio_base ; 

get base address of C0M1 82C50 

mov 

dx, LSR ; 

line Status register 

add 

dx, di 


char_wthr: 



i n 

al, dx ; 

wait for transmitter ready 

test 

al , THRE„MASK 


U 

char_wthr ; 

loop if not ready 

pop 

ax 


mov 

dx, THR ; 

address of transmitter hol ding 

add 

dx, di ; 

register 

out 

dx, al ; 

send character to serial 

pop 

di 


pop 

dx 


ret 



tmi o„char endp 



j 

tmio_init 


i 

performsl initialisation of serial port 


Port is intialised to 1200 baud, 8 bits, 
no parity. 

DTR is set high: I'm always ready 
Interrupt regi ster on port Setup as INT^REG 

Parameters: 

NONE 

Returns: 








NONE 

; Destroys: 

; NONE 

J 

tmio_i ni t proc near 
push 
push 
push 
push 


if sV * ii * Hz * ft * ff * * * i'i * * f{ * ff * ff * ff * * * * ff 


xor 
push 

mov üs, ax ; segment zero 

mov di, ds:[SER_BASE] ; get base of coml 

pop ds ; restore ds to locai 

mov . tmio_base, di ; save base address 
call tmio_inof ; disable serial Interrupts 

mov al , PORT_DEFAULT ; set up port as in header 

call tmio_inpt set up 80cS0 

Set up interrupts for the serial port 
On an IBM PC the following code could be used 


al, 21h 
al, Oefh 
21h, al ^ 


; access 82C59 PIC 
; enable int Och 


This will not work on the Pocket PC, but the following code can be used 
mov ax, INT_NUM ; Interrupt number 

call tmio_sint ; set up serial Interrupt 

set up modern control register 

mov dx, MCR ; Teil the world we are ready 

add dx, di 

mov al , DTR or RTS ; set RTS/DTR 

On an IBM PC the interrupt line needs to be enabled: 


mov 

al , DTR or 

RTS or 8 

out 

dx, al 

; set up modern control register 

cal 1 

tmio^inon 

; enable serial interrupts 

mov 

dx, di 

; clear input buffer on 82C50 

i n 

al , dx 


pop 

di 


pop 

dx 


pop 

si 


pop 

ax 


ret 




tmio_init endp 




ttni o_i non 

Enables serial interrupts 






Parameters: 

NONE 
Returns: 

NONE 

Destroys: 

al , dx 


tmio_inon proc near 


(110 V 

dx, 

IER 

add 

dx , 

cs:tmio_ 

mov 

al , 

INT_ON 

out 

dx , 

al 

ret 

tmi o_i non endp 



tmio_inof 
Disable serial 

p 

interrupts 

■ 

\ Parameters- 

; NONE 

Returns: 

NONE 

Destroys: 

al , dx 

i 

- * ft * ft ft * * ft ft ft ft ft * ft ft * ft * ft 



tmio_inof proc near 

mov 

dx , 

IER 

add 

dx , 

cs:tmio_ 

mov 

al , 

INT OFF 

out 

dx , 

al 

ret 

tmio„inof endp 



; tmio_intc 

; Serial read Interrupt Service 


Interrupt enable registei 
e 

Interrupt enabled 




; Interrupt enable register 


- ^ j c t-i i iijjjuu ! cyiiLtii ue mg 

PIaces character in buffer and returns 


Parameters: 

NONE 
Returns: 

NONE 
Destroys: 
NONE 








tmio„intc proc near 
push 
push 
push 
mov 
add 
i n 
and 
mov 
mov 
i nc 

; On an IBM PC the 


ax 

dx 

di 


dx, 
dx, 
al, 
al, 
di, 
cs: 


of receiver buffer 


RBR ; address 

cs:tmio_base 

J 9€t received character into al 
STRP_T0P ; strip top bit 
cs:tmdpJoptr ; place character at top 
[di], al ; of buffer 


cs:tmdp_bptr ; advance buffer pointer 
Interrupt must be acknowledged by the following code 


mov 

al , 20h 

; out 

20h, al 

; On the Pocket PC 

this is unnecessary 

pop 

di 

pop 

dx 

pop 

ax 

i ret 

tmio_intc endp 

. * * ft * * * ft * ft ft * * ft ft- ft ft ■; 

* * A * * A A * ff A ff * ff A ff * ff A * * A A ff * ff A fr A ff * * A ff * A ff A . 

; tmio_exit 

* 

; Ensures safe 

exit from terminal emulator 

; Parameters: 

i 

; NONE 

1 

; Returns: 

>• 

; NONE 

s 

; Destroys: 

f 

; NONE 

1 

j A * * A A A ft A * ft ff ff A ff ft A A * 

* * * * * * * * * * * *ft * * * * * * * * * * * * * ;V ,, * ft ;t ,, ' 

tmio_exit proc near 

i 

push 

ax 

push 

bx 

push 

dx 

cal 1 

tmio_inof ; Disable interrupts 

; put old Interrupt 

Service routine back 

push 

ds 

mov 

ds, tmio_segc ; get old segment 

mov 

dx, trmo_offc ; get old offset 

mov 

ax, 250ch 

i nt 

21h ; redirect serial inte 

pop 

ds . ■ v '" 

mov 

al i 48h : reset rlefanli- 

cal 1 

tmio sint 


; redirect serial Interrupt 
; reset default Interrupt vector 






pop 

ret 

tmio_exit endp 


ax 


tmi o_si'nt 

Set Interrupt vector register 

Will replace existing entry if possible 
This routine uses int 61h Service Ich to ensure 
that power down will not corrupt serial port 
vector register 

Parameters: 

al: interrupt number 
Returns: 

NONE 

Destroys: 

NONE 


sint„srch: 


check if 


* * * * * 


‘ * * * * * * * * * * * * * V, * * * * * * 

roc near 



push 

ax 


push 

bx 


push 

cx 


push 

dx 


vector 

already being 

set up 

push 

ax 


mov 

cl , 3 

; first non reserved entry 

i nc 

cl 


cmp 

cl , 11 

; max table entry+1 

je 

sint^seti 

; if got here then entry no exist 

mov 

ax, IcOlh 

; return table entry 

mov 

bh, cl 

; table entry number 

i nt 

61h 

: return table entry 


has 



cmp 

dx, INT_RE G 

; have we found location in 


jne 

sint_srch 

; no than always replace 

; have found location 
sint_wral: 

in table for 

interrupt vector number 


pop 

ax 

Interrupt number back 


mov 

bl , al 

put value to write into bl 


mov 

bh, cl 

table entry to use 


mov 

dx, INT„REG 

address of SIVR 


mov 

i nt 
jffip 

ax, IcOOh 

61h 

sint_exit 

write entry number 

; fine! an 

empty entry 

table to use 


si nt_seti : 



; find empty table entry 

si nt_sr00: 

mov 

cl , 3 

. first entry to check 


tab'l e 





inc 

Cl 

cmp 

cl , 11 

je 

sint^bodg 

mov 

ax, IcOlh 

mov 

bh, cl 

int 

61h 

cmp 

dx, 0 

jne 

sint_sr00 

jmp 

sint_wral 

sint_bodg: 


; no table entry 

has been found to 

pop 

ax 

mov 

dx, INT_REG 

out 

dx, al 

sint_exit: 

i>on 

dx 

sop 

cx 

pop 

bx 

pop 

ax 

ret 

tmo_sint endp 

1 A £ JtnI'S M i'i M l i; -.1 ft .. L' ft 

, .■ ■ m ft ;■ . . i i. ^ ^ . 


max table entry+1 

if got here tben entry no exist 

return table entry 

table entry number 

return table entry 

have yve found empty location in 

no than always replace 

yes gö and write it 

no table entry 


corruption of SIVR may occur 
on power down 


tmio_inpt 

Initialise 

Parameters: 

al : nr 


80c50 Cbased on int 14h Service 0) 


Returns: 


infame-i : 

i as 

Int 14hJ 

ßi i s 7 , G 

C 

■ - 'J 

GALT. MA l 


0 0 

0 

110 


0 0 

1 

150 


0 1 

0 

300 


0 1 

1 

600 


1 0 

0 

1200 


10 . 

1 

2400 


1 1 

0 

4800 


11 

1 

9600 

Bits 

4, 3 PARITY 


x 0 


none 


0 1 


odd 


11 


even 

Bit 

2 


STOP BITS 


0 


1 bi t 


1 


2 bits 

Bits 

1, 0 WORD LENGTH 


1 0 


7 bits 


1 1 


8 bits 


tabl 









Destroys: 





1 

NONE 





. * * * * * * * * * 

i 

* * * * * * * * * * 

* fs sc SS * : 




tmio_inpt proc near 






push 

ax 

i 

Preserve Parameters 



mov 

Cl , 

5 ; 

Set up shift count 



shr 

al , 

cl 

Cet bits to shift 



jz 

i m t_.spec 

Special case of 110 baud 


mov 

cl , 

al 

Get count in CL 



mov 

ch, 

06h 




shr 

cx, 

cl ; 

Get divisor in CX 



jmp 

short init_norm 



init„spec: 

mov 

CX, 

417h ; 

Divisor for 110 baud 


init„norm: 

mov 

dx, 

tmio_base ; 

Base address 



add 

dx, 

LCR 

Get 1ine control reg 

port 


mov 

al , 

80h 

Access divisor regs 


out 

dx, 

al 



mov 

dx, 

tmio„base ; 

Lower divisor latch 



mov 

al , 

cl : 

Get low divisor 



out 

dx, 

al 

Write divisor 



i nc 

dx 

i 

Upper divisor latch 



mov 

al, 

ch 

Get high divisor 



out 

dx, 

al 

Write divisor 



pop 

ax 


Restore Parameters 



and 

al , 

lfh 

Get bits 4 to 0 



mov 

dx, 

tmio_base ; 

Base address 



add 

dx, 

LCR j 

Line control register 

port 


out 

dx, 

al 

Write data 


ret 





tmio_inpt endp 





tmio^base dw 0 

. base address 



tmio_offc dw 0 

; offset of old 

int Och 


tmio_segc dw 0 

, Segment of old int Och 



I säHT! 




RUN FILES GREATER THAN 64K 


In Order to build a .RUN file with a code size greater than 64k, it is necessary to 
have more than one code segment. One way oj achieving this is to build the 
program using the MEDIUM memory model. In this way the code size is only limited 
to the avaiiable space on a CCM (up to 128k). 

Unlike an .EXE file, which has fixups resolved ai run time, a .RUN tile must have the 
tixups resolved betöre the program is commited to a ROM card, Therefore it is 
necessary to resolve the fixups based upon an absolute memory address for the file, 
and it must be known in advance where the file wili reside on the card. If the 
program is the first file on the card, its Position can be calculated as follows 

Fixup Address (in paragraphs) = 

COOQH + (Boot sectors + FAT sectors + Root Dir sectors)* (sector size in 
paragraphs) 

The number of sectors used can be found by using a disk Utility program (such as 
Norton Utilities). 

Example 

For a 128k card formatted with 512 bytes per sector, 1 sector for the Boot Record, 1 
sector for the FAT, and 8 sectors for the Root Dir, the address (in paragraphs) of the 
first file on the card will be C140H. 

This value should then be used for the fixup segment address, before the program 
is copied to the ROM card. 

Due to the mechanism used by the operating System to execute .RUN files, the file 
must have an apparent size less than 64k. Therefore after the program has been 
copied to the card, the file size entry in the Root Dir must be set to a value less than 
64k. 

Since data fixups must be resolved at run time, it is not possible to have more than 
64k of data. This means that the HUGE memory model cannot be used. 
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